(gud-perldb-massage-args): Avoid nreverse'ing a list

part of which is a constant.

diff --git a/lisp/gud.el b/lisp/gud.el
index 9e9650931dfb79d389c7a255feca6e5c89ef1505..4b2b621ee12a4ea6ff585cb4af0e2cf4792e6cc6 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1182,7 +1182,7 @@ directories if your program contains sources from more than one directory."
 ;; "-d" in inserted as the first switch, and "-emacs" is inserted where
 ;; it will be $ARGV[0] (see perl5db.pl).
 (defun gud-perldb-massage-args (file args)
-  (let* ((new-args '("-d"))
+  (let* ((new-args (list "-d"))
         (seen-e nil)
         (shift (lambda ()
                  (setq new-args (cons (car args) new-args))